home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / biz / dbase / MUIVideo_211a.lha / MUIVideo / ARexx / letztes_tape.rexx < prev    next >
OS/2 REXX Batch file  |  1995-11-24  |  738b  |  39 lines
  1. /*
  2.  * letztes_tape.rexx
  3.  *
  4.  * ARexx-Script für MUIVideo
  5.  * Ermittelt die höchste Cassettennummer
  6.  * unter Verwendung des in V1.13 eingeführten Befehls
  7.  * GETQUICK
  8.  *
  9.  * $VER: letztes_tape.rexx V1.0 (23.11.95)
  10.  * Copyright 1995 by Christoph Kirsch
  11.  *
  12.  */
  13.  
  14. address 'MUIVIDEO.1'
  15. options results
  16.  
  17. sleep                           /* Eingaben unterbinden */
  18.  
  19. count                           /* Anzahl der Filme holen */
  20. num = result
  21.  
  22. hoechste = 0
  23.  
  24. do i=0 to num-1                 /* bei allen Datensätzen ... */
  25.  
  26.     getquick i CASSETTE           /* Cassettennummer lesen */
  27.     cas = result
  28.  
  29.     if cas > hoechste then do
  30.         if cas < 'A' then hoechste = cas
  31.         end;
  32.  
  33. end
  34.  
  35. requestnotify hoechste
  36.  
  37. wake                             /* Eingaben erlauben */
  38.  
  39.